詳細

<%SetShosaiData%>

<% Private Sub SetShosaiData Dim KomokuNo(10) Dim KomokuName(10) '遺品ＤＢオブジェクト取得 Set MyCon = Session("xxxNDB") 'SQL検索条件編集 SqlWhere = "画像フォルダID='" & Request("folder") & "' AND 画像ID='" & Request("id") & "'" '大分類コード取得 Sql = "SELECT 大分類コード FROM F_GAZOU WHERE " & SqlWhere Set MyRS = MyCon.Execute(Sql) 'コントロールテーブルから詳細表示内容を取得SQL Sql = "SELECT 項目番号,項目名称,詳細表示フラグ FROM M_CONTROL " & _ "WHERE 大分類コード='" & MyRS.Fields(0) & "' " & _ "ORDER BY 項目番号" Set MyRS = MyCon.Execute(Sql) 'コントロールテーブルから一覧表示内容を取得 nItem = 0 Do While (Not MyRS.Eof) If MyRS.Fields("詳細表示フラグ") = True Then nItem = nItem + 1 KomokuNo(nItem) = MyRS.Fields("項目番号") KomokuName(nItem) = MyRS.Fields("項目名称") End If MyRS.MoveNext Loop MyRS.Close 'SQL抽出項目編集 SqlSelect = "画像フォルダID,画像ID" For i = 1 To nItem SqlSelect = SqlSelect + ",属性" & KomokuNo(i) Next 'SQL文編集＆実行 Sql = "SELECT " & SqlSelect & " FROM F_GAZOU WHERE " & SqlWhere Set MyRS = MyCon.Execute(Sql) '検索結果出力 If (Not MyRS.Eof) Then For i = 1 To nItem Response.Write "" & vbcrlf Response.Write "" & KomokuName(i) & "" & vbcrlf sData = MyRS.Fields("属性" & KomokuNo(i)) If IsNull(sData) Then sData = "　" End If Response.Write "" & sData & "" & vbcrlf If i = 1 Then Response.Write "" End If Response.Write "" & vbcrlf Next End If MyRS.Close End Sub %>